home *** CD-ROM | disk | FTP | other *** search
/ MacWorld Ultimate Mac / Macworld Ultimate Mac CD-ROM (1994)(IDG).iso / The Best of BMUG / Utilities / Text and Speech / Alpha.5.76 / Tcl / ElectricAlias / Aliases / aliases.Pas < prev    next >
Pascal/Delphi Source File  |  1994-06-28  |  1KB  |  28 lines
  1. # FILE: aliases.Pas
  2. #
  3. # DESC: Aliases for Pascal mode
  4. #
  5. # LAST UPDATE: 01/05/93 8:10:35 AM 
  6.  
  7.     electricAlias-def •Pas •Pas •Pas
  8.     electricAlias-var Pas bb "begin"
  9.     electricAlias-var Pas eb "end"
  10.     electricAlias-var Pas bc "\{"
  11.     electricAlias-var Pas ec "\}"
  12.     electricAlias-def •Pas function  "§«askalias {function name} NAME»function §{NAME}(•):•;\r•begin\r\t•\rend§{bc}function §{NAME}§{ec}\r\r•"
  13.     electricAlias-def •Pas procedure "§«askalias {procedure name} NAME»procedure §{NAME}(•);\r•begin\r\t•\rend§{bc}procedure §{NAME}§{ec}\r\r•"
  14.     electricAlias-def •Pas label     "label •;•"
  15.     electricAlias-def •Pas const     "const •;•"
  16.     electricAlias-def •Pas type      "type •;•"
  17.     electricAlias-def •Pas var       "var •;•"
  18.     electricAlias-def •Pas record    "record\r\t•\rend;•"
  19.     electricAlias-def •Pas begin     "begin\r\t•\rend•"
  20.     electricAlias-def •Pas for       "for • := • to • do §{bb}\r\t•\r§{eb} §{bc}for§{ec}•"
  21.     electricAlias-def •Pas while     "while (•) do §{bb}\r\t•\r§{eb} §{bc}while§{ec}•"
  22.     electricAlias-def •Pas repeat    "repeat\r\t•\runtil (•);•"
  23.     electricAlias-def •Pas if        "if (•) then §{bb}\r\t•\r§{eb} §{bc}if§{ec}•"
  24.     electricAlias-def •Pas elseif    "\b§{eb} else if (•) §{bb}\r•"
  25.     electricAlias-def •Pas else      "\b§{eb} else §{bb}\r•"
  26.     electricAlias-def •Pas case      "case  (•)\r\t• : begin\r\t\t•\r\tend\r\rend §{bc}case§{bc}•"
  27.  
  28.